. MONSTER CHASE
. BY ALEX MORALES
. THE BASIC EXPRESS (JULY/AUGUST 1981)
.
5 NT=0;clear ;CX=-61;CY=0;print "DIFFICULTY 1, 2 OR 3?";CX=-24;print "--right ",
6 CX=0;S=(KN(1)+128)div 80;if S=0S=1
7 print #0,S,;if TR(1)goto 10
8 goto 6
10 clear ;BC=0;FC=7;L=-18;M=18;X=-18;Y=18;R=18;C=-18;Q=18
20 box 0,0,46,46,1
30 for A=-18to 18step 9
40 for B=-18to 18step 9
50 box A,B,8,8,2;next B;next A
60 CX=L;CY=M;TV=77;CX=M;CY=L;TV=89
70 CX=-35;CY=32;print "MONSTER CHASE
75 NT=3;for T=1to 10
80 if JX(1)=1if JY(1)=0if R#Q CX=R;CY=C;TV=32;R=R+9;CX=R;CY=C;TV=89;goto 130
90 if JY(1)=1if JX(1)=0if C#Q CX=R;CY=C;TV=32;C=C+9;CY=C;CX=R;TV=89;goto 130
100 if JX(1)=-1if JY(1)=0if R#-Q CX=R;CY=C;TV=32;R=R-9;CX=R;CY=C;TV=89;goto 130
110 if JY(1)=-1if JX(1)=0if C#-Q CX=R;CY=C;TV=32;C=C-9;CY=C;CX=R;TV=89;goto 130
115 if TR(1)goto 130
120 goto 80
130 if R=Xif C=Ygoto 350
140 if X=Rif Y<C D=1
150 if X>Rif Y<C D=2
160 if X>Rif Y=C D=3
170 if X>Rif Y>C D=4
180 if X=Rif Y>C D=5
190 if X<Rif Y>C D=6
200 if X<Rif Y=C D=7
210 if X<Rif Y<C D=8
220 if S=1D=D+rnd (3)-1
225 if S=2D=D+rnd (2)-1
230 if D=0D=8
240 if D>=9D=1
250 if D>1if D<5X=X-9
260 if D>5X=X+9
270 if D>3if D<7Y=Y-9
280 if (D<3)+(D=8)Y=Y+9
290 if X<-18X=X+9
300 if Y>18Y=Y-9
310 if X>18X=X-9
320 if Y<-18Y=Y+9
323 CX=L;CY=M;TV=32
326 CX=X;CY=Y;TV=77
328 L=X;M=Y
330 if X=Rif Y=Cgoto 350
340 next T
345 NT=0;&(21)=15;&(16)=49;for I=256to 0step -2;&(19)=I;&(20)=I;next I;&(21)=0;CX=-35;CY=-32;print "YOU SURVIVED!";goto 380
350 CX=CX-6;TV=77;for F=1to 8
360 NT=0;for I=8to 1step -2;box X,Y,I,I,3;&(21)=255;&(23)=200;&(19)=Fmul I;next I;next F;&(19)=0;&(21)=0;&(23)=0
370 CX=-38;CY=-32;print "YOU ARE EATEN!
380 if TR(1)run 
390 goto 380
:return 
